home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / NRCOBOL1g / COBFILES / HELLO4.COB < prev    next >
Encoding:
Text File  |  1998-02-06  |  753 b   |  30 lines
  1.       * ROUTINE TO DISPLAY A MULTIPLICATION GRID.
  2.        IDENTIFICATION DIVISION.
  3.        PROGRAM-ID.  HELLO4.
  4.        AUTHOR. cHArRiOTt.
  5.       * 
  6.        ENVIRONMENT DIVISION.
  7.       *
  8.        DATA DIVISION.
  9.        WORKING-STORAGE SECTION.
  10.        01  Y-ROW           PIC 99.
  11.        01  X-COLUMN        PIC 99.
  12.  
  13.       *
  14.       *  
  15.        PROCEDURE DIVISION.
  16.        001-MAIN.
  17.            DISPLAY (1 , 10)
  18.            "Routine to CALCULATE and DISPLAY a MULTIPLICATION TABLE".
  19.             MOVE 1 TO Y-ROW
  20.             perform  23 times
  21.                 DISPLAY "line : " Y-ROW
  22.                 add 1 to Y-ROW
  23.             end-perform.
  24.       *001-SOMETHING
  25.            STOP RUN.
  26.  
  27.        001-SOMETHING.
  28.            DISPLAY "line : " Y-ROW
  29.            add 1 to Y-ROW
  30.